home *** CD-ROM | disk | FTP | other *** search
/ Japan - A Multimedia Tour / Japan, A Multimedia Tour (ROM2263)(Innotech Multimedia Corporation)(1996).iso / setup.inf < prev   
Text File  |  1996-03-28  |  7KB  |  186 lines
  1. ;SETUP.INF - Setup File For Japan CD-ROM
  2.  
  3. SetVariable(TitleName, "Japan- A Multimedia Tour")             ;Name of the title
  4.  
  5. SetVariable (TitleMVB, "Innotech")              ; Basename of the MVB file
  6. SetVariable(TitleSrcDir, "Innotech\")           ;Source subdirectory of the title
  7. GetCurPath(FinditSrcDir)                        ;Source directory of the Findit
  8.  
  9. SetVariable (FinditSize, 3 000 000)     ; Size of the Findit files that will
  10.                     ;  be copied over (measured in bytes)
  11. SetVariable (FinditDestDir, "C:\Japan\")        ; Destination directory for 
  12.                         ;  the Findit.  Set default
  13.                         ;  here.
  14.  
  15. SetVariable (CDdrive, "D:\")
  16.  
  17. WindowTitle(<TitleName> " ")
  18.  
  19. ; Set the instruction text used in the initial instructions window.
  20. ; Add Help instructions if the file SETUP.HLP exists.
  21. ;
  22. SetVariable (InitialInstructions, 
  23.     "Click on {\b OK} or press {\b Enter} to continue.  "
  24.     "To abort the setup, click on the {\b Exit} button at the "
  25.     "bottom right corner of the screen, or press {\b F3}.  ")
  26.  
  27. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  28.  
  29.     Goto (DisplayInitialMessage)
  30. AddHelpInstructions:
  31.     SetVariable (InitialInstructions, 
  32.         <InitialInstructions> "You can always obtain help by "
  33.         "clicking on the {\b Help} button or pressing {\b F1}.  ")
  34.  
  35. DisplayInitialMessage:
  36. DisplayMessage (
  37.     "The Setup program will install the " <TitleName> " ",
  38.     <InitialInstructions>)
  39.  
  40.  
  41. ; Determine if the Findit has been installed before.
  42. ; If the WIN.INI file contains information on where the Findit directory
  43. ; is located, then make that the default path to install the Findit.
  44. ;
  45. GetFromWinIni (FinditDestDirTemp, "Jap", "Path", "Undefined")
  46.  
  47. IfEqualGoto (<FinditDestDirTemp>, "Undefined", PromptFinditDestDir)
  48. SetVariable (FinditDestDir, <FinditDestDirTemp>)
  49.  
  50. AskAgain:
  51. PromptCDdrive:
  52. PromptFinditDestDir:
  53. ;PromptPath(FLOPPY, <FLOPPY>,
  54. ;          "Which Source Drive Do You Want To Install From?",
  55. ;          "Modify The Default Drive If Necessary, You Should Specify The {\b Drive} "
  56. ;          "{\b Letter}, A {\b Colon}, And End In A {\b Backslash}.  Then Click {\b OK} Or "
  57. ;          "Press {\b Enter} To Continue. ",
  58. ;          "The Drive Letter Is Not Valid. You Must Specify A Valid Drive "
  59. ;          "Letter, A Colon, And End In A Backslash. ")
  60.  
  61. PromptPath (FinditDestDir, <FinditDestDir>,
  62.     "Where should Setup install JAPAN?",
  63.     "Modify the default path if necessary, and then click on {\b OK} or "
  64.     "press {\b Enter} to continue.  ",
  65.     "The path is currently not valid.  You must specify a drive "
  66.     "letter, a colon, and a directory from the root of the drive.  ")
  67.  
  68. PromptPath(CDdrive, <CDdrive>,
  69.     "Which drive letter is the CDROM drive currently ?",
  70.     "Modify the default drive if necessary, you should specify a drive"
  71.     " letter, a colon, and end in a {\b backslash}. Then click on {\b OK} or "
  72.     " press {\b Enter} to continue. ",
  73.     "The Drive Letter is not valid. You must specify a valid drive"
  74.     " letter, a colon, and end in a backslash. ")
  75.  
  76. ; Don't allow Findit to be installed in the Windows directory
  77. ;
  78. GetWinPath (WinPath)
  79.  
  80. GetWinSystemPath (SystemPath)
  81.  
  82. IfNotEqualGoto (<FinditDestDir>, <WinPath>, CheckSpace)
  83. DisplayMessage (
  84.     "You cannot install the JAPAN files into the Windows directory.  "
  85.     "Please enter another directory.",
  86.     "Click on {\b OK} or press {\b Enter} to enter another directory "
  87.     "for the directory listings.")
  88. Goto (PromptFinditDestDir)
  89.  
  90. ; Check if there is enough space to install the Findit.
  91. ;
  92. CheckSpace:
  93. GetSpaceAvailable (SpaceAvailable, <FinditDestDir>)
  94.  
  95. IfLowerGoto (<FinditSize>, <SpaceAvailable>, FinditDestDirOK)
  96.  
  97. AskYesNo (Prompt, "Yes",
  98.     "There may not be enough space or invalid Drive or Path to install "
  99.     "JAPAN Files  "
  100.     "Would you like to enter a new path for the files?  ",
  101.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for The "
  102.     "JAPAN-A Multimedia Tour.\par "
  103.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  104.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  105.     "You may wish to exit Setup and make some more space on your hard "
  106.     "disk.  Run Setup again when there is enough space on your hard "
  107.     "disk.  ")
  108. IfEqualGoto (<Prompt>, "Yes", PromptFinditDestDir)
  109.  
  110.  
  111. AskYesNo (Prompt, "Yes",
  112.     "There may not be enough space or invalid Drive or Path to install "
  113.     "The JAPAN Files.  "
  114.     "Would you like to enter a new path for the files?  ",
  115.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for "
  116.     "The JAPAN files\par "
  117.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  118.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  119.     "You may wish to exit Setup and make some more space on your hard "
  120.     "disk.  Run Setup again when there is enough space on your hard "
  121.     "disk.  ")
  122. IfEqualGoto (<Prompt>, "Yes", PromptCDdrive)
  123.  
  124. FinditDestDirOK:
  125. AskYesNo (AskAgain, "Yes",
  126.     "Would you like to change anything before proceeding with "
  127.     "the installation?",
  128.     "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  129.     "Click on {\b No} or press {\b 'N'} to proceed with installation.")
  130. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  131.  
  132.  
  133. ; Create the tree structure.
  134. ;
  135. MakePath (<FinditDestDir>)
  136.  
  137. ; Copy the files
  138. ;
  139. OpenCopyProgress ("Setup is copying the JAPAN Files.",
  140.     "Please wait while Setup copies the files.")
  141.  
  142.  
  143. ;;;; FILES ON THE CD_ROM - IMAGES ;;;;
  144. ;;;; FILES ON THE DISKETTE - MISC. ;;;;
  145. CopyFile(<CDdrive> "instwin\NAVIT.EXE", <FinditDestDir> "NAVIT.EXE", 550000)
  146. CopyFile(<CDdrive> "instwin\NAVIT.INI", <FinditDestDir> "NAVIT.INI", 2000)
  147. CopyFile(<CDdrive> "instwin\PARAM6.0", <FinditDestDir> "PARAM6.0", 200)
  148. CopyFile(<CDdrive> "instwin\intro", <FinditDestDir> "intro", 300)
  149. CopyFile(<CDdrive> "instwin\standard.f0", <FinditDestDir> "standard.f0", 50)
  150. CopyFile(<CDdrive> "instwin\param5", <FinditDestDir> "param5", 200)
  151. ;CopyFile(<CDdrive> "instwin\param4", <FinditDestDir> "param4", 200)
  152.  
  153. CloseCopyProgress ()
  154.  
  155.  
  156. SetVariable (Continuation, Label1)      
  157. Label1:                                 ; Resume execution
  158. OpenProgmanProgress (
  159.     "Setup is adding Program Manager groups.",
  160.     "Please wait while Setup adds {\b Program Manager} groups".)
  161.  
  162. OpenProgmanGroup ("ITP Nelson - JAPAN", Delete)     ;; Add the group named after the title
  163.  
  164.  
  165. AddProgmanItem ("JAPAN", <FinditDestDir> "NAVIT.EXE", <FinditDestDir> "NAVIT.EXE", 0)
  166.  
  167.  
  168. CloseProgmanProgress ()
  169.  
  170.  
  171.  
  172. TranslateFile(<CDdrive>"instwin\param6.0", <FinditDestDir>"param6.0", 40, romletter, <CDdrive>)
  173.  
  174.  
  175. AddToWinIni ("JAPAN", "Path", <FinditDestDir>)
  176.  
  177. SetVariable (Message, 
  178.     "The Setup program has successfully installed The JAPAN -  A Multimedia Tour"
  179.     " application. You can start the application by double clicking"
  180.     " on the JAPAN Icon in the ITP Nelson - JAPAN program group. %n%n")
  181.  
  182.  
  183. DisplayMessage (<Message>, 
  184.     "Click on {\b OK} or press {\b Enter} to return to the "
  185.     "Program Manager.")
  186.